. DESIGN
. (WITH HORIZONTAL AND
. VERTICAL SWEEP)
. CURSOR
. SEPTEMBER 1980
. 
10 .DESIGN
20 .BY MARK REAM
30 clear ;NT=0
40 CX=-77;CY=40;print "PRESS DESIRED CHARACTER!
50 A=KP;clear 
60 for B=1to 285;TV=A;next B
70 for C=-80to 75step 2;box C,0,1,88,3;next C
80 for C=43to -43step -2;box -2,C,156,1,3;next C
90 if KP=13goto 40
100 goto 90
:return 